home *** CD-ROM | disk | FTP | other *** search
/ Alles Voor Internet / Tout Pour Internet / alles voor internet.iso / MacInternet™ / Telnet / 5PM PowerMac / 5PM_Term_PPC.sea / Palettes Folder / Session Sets.rsrc / WTXT_0 < prev   
Text File  |  1994-02-04  |  993b  |  41 lines
  1. On open
  2.     Signal checksets after 1 secs
  3. End open
  4.  
  5. On CheckSets
  6.     Get the targetSession of 5PM
  7.     Set the enable of btn 2 to it is not empty
  8.     Set the enable of btn 3 to it is not empty
  9.     If it is empty then
  10.         Put empty into btn 2
  11.         Put empty into btn 3
  12.     Else
  13.         Do GetSetData the hotSpotSet of it, 2, "SSET" -- Hot Spots
  14.         Do GetSetData the keySet of palt last word of it, 3, "KSET" -- Hot Spots
  15.     End if
  16.     Signal CheckSets after 1 secs
  17. End CheckSets
  18.  
  19. On GetSetData defaultSet, btnRef, setType
  20.     Get the targetSession of 5PM
  21.     Get SortLinesOnKey (ListPaltResType (setType, last word of it))
  22.     If it is not empty then
  23.         Put "no sets" & cr & it into data
  24.     Else
  25.         Put "no sets" into data
  26.     End if
  27.     If defaultSet is empty then
  28.         Get 1
  29.     Else
  30.         Get FindElement (data, defaultSet, cr)
  31.     End if
  32.     If data is not btn btnRef then
  33.         Put data into btn btnRef
  34.         Set the curValue of btn btnRef to it
  35.     Else
  36.         If the curValue of btn btnRef <> it then
  37.             Set the curValue of btn btnRef to it
  38.         End if
  39.     End if
  40. End GetSetData